Fortran 不纯逐元过程

不纯逐元过程 impure elemental function 可以修改参数，但必须使用 intent(inout) 声明。